plot_labels

library(managecrownsdata)
library(readxl)
library(DT)

wideLabels <- read_excel(file.path(system.file(package="managecrownsdata"), 'labeling_file_Mbalmayo.xlsx'))

longLabels <- format_labels(wideLabels)

datatable(longLabels, 
          class = 'cell-border stripe',
          rownames = FALSE,
          width = '100%', 
          options = list(scrollX = TRUE))
#> Warning in instance$preRenderHook(instance): It seems your data is too big for
#> client-side DataTables. You may consider server-side processing:
#> https://rstudio.github.io/DT/server.html